home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2003 November
/
chip-cd_2003_11.zip
/
11
/
Zagrozenia z Sieci
/
Cybernianie
/
We-Blocker 2.0
/
weblock.exe
/
Syswb6.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
2001-08-17
|
6KB
|
275 lines
object Form1: TForm1
Left = 352
Top = 137
BorderIcons = []
BorderStyle = bsSingle
Caption = 'We-Blocker'
ClientHeight = 294
ClientWidth = 328
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object PopupMenu1: TPopupMenu
Left = 8
Top = 72
object Controls1: TMenuItem
Caption = 'Go to master controls'
Visible = False
OnClick = GotoParentControlsClick
end
object N1: TMenuItem
Caption = '-'
end
object ChangeUser1: TMenuItem
Caption = 'Change current user'
OnClick = ChangeUser1Click
end
object LogOut1: TMenuItem
Caption = 'Change to GUEST mode (Logout)'
OnClick = LogOut1Click
end
object RegisterWeBlocker1: TMenuItem
Caption = 'Register We-Blocker'
Visible = False
OnClick = RegisterWeBlocker1Click
end
object Help: TMenuItem
Caption = 'Help'
OnClick = HelpClick
end
end
object URLS1DB: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 64
Top = 104
end
object UsersDB: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 144
Top = 12
end
object UsersSource: TDataSource
DataSet = UsersDB
Left = 114
Top = 12
end
object LogDb: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = True
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 144
Top = 42
end
object LogSource: TDataSource
DataSet = LogDb
Left = 114
Top = 42
end
object LogoutTimer: TTimer
Enabled = False
Interval = 300000
OnTimer = LogoutTimerTimer
Left = 52
Top = 12
end
object URLS2DB: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 88
Top = 104
end
object URLS3DB: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 120
Top = 104
end
object URLS4DB: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 144
Top = 104
end
object Wordsdb: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
OnCalcFields = WordsdbCalcFields
Left = 144
Top = 66
object WordsdbWORD: TStringField
FieldName = 'WORD'
Size = 30
end
object WordsdbCalcWordType: TStringField
DisplayWidth = 25
FieldKind = fkCalculated
FieldName = 'CalcWordType'
Calculated = True
end
object WordsdbTYPE: TSmallintField
FieldName = 'TYPE'
end
object WordsdbUSER: TStringField
FieldName = 'USER'
Size = 1
end
object WordsdbCalcWordWeight: TStringField
DisplayWidth = 35
FieldKind = fkCalculated
FieldName = 'CalcWordWeight'
Size = 35
Calculated = True
end
object WordsdbWordWeight: TIntegerField
DisplayWidth = 10
FieldName = 'WordWeight'
end
end
object WordsSource: TDataSource
DataSet = Wordsdb
Left = 114
Top = 66
end
object AppInfo: TzShowApp
CPUType = 5
CPUString = 'AMD K5/K6'
CPUVendor = 'AuthenticAMD'
CPUMMX = True
CPUStepping = 0
CPUModel = 8
CPUSpeed = 299
UseCmdShow = False
ShowOnStatusBar = False
ShowMainForm = False
ShowHint = True
OnAskEndSession = AppInfoAskEndSession
Left = 8
Top = 8
end
object zTrayIcon1: TzTrayIcon
PopupMenu = PopupMenu1
LeftPopupMenu = PopupMenu1
HideParentForm = True
ShowDesigning = False
Active = False
Icon.Data = {<image001.ico>}
ToolTip = 'WeBlocker'
Left = 8
Top = 40
end
object AsserterLauncher: TTimer
Interval = 5000
OnTimer = AsserterLauncherTimer
Left = 8
Top = 136
end
object Configdb: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 64
Top = 136
end
object GHServer1: TGHServer
Active = False
Bindings.Strings = (
':6711'
':11523')
DefaultPort = 0
Workercode = GHServer1Workercode
ThreadCacheSize = 6
Left = 6
Top = 102
end
object AdminClient: TGHClient
Port = 6811
CacheDNSLookup = False
Left = 116
Top = 206
end
object WBUserBlockdb: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 80
Top = 208
object WBUserBlockdbSite: TStringField
FieldName = 'Site'
Size = 100
end
object WBUserBlockdbBlockcats: TIntegerField
FieldName = 'Blockcats'
end
end
object WBUserUnBlockdb: THalcyonDataSet
About = 'Halcyon Version 6.737 (08 Feb 01)'
AutoFlush = False
Exclusive = False
LockProtocol = Default
TranslateASCII = True
UseDeleted = False
UserID = 0
Left = 80
Top = 244
object WBUserUnBlockdbSite: TStringField
FieldName = 'Site'
Size = 100
end
end
end